home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / bbs / trionbbs100.lha / Trion / menus / file.src < prev    next >
Text File  |  1997-07-28  |  2KB  |  181 lines
  1.  
  2.  
  3. Menu "file.menu"
  4.  
  5. flags  hotkeyable
  6. level  0 - 255 , "File.Ansi"
  7. prompt 0 , 0 - 255 , "|File Menu : "
  8. prompt 1 , 0 - 255 , "|File Menu : "
  9.  
  10. BEGIN     ; Start the command definitions
  11.  
  12.  
  13. MenuBegin
  14. ;   Print "FileMenu|"
  15.    LogMessage "Entered file menu."
  16. EndCmd
  17.  
  18. ;BuildScreen
  19. ;;   PrintFile "trion:menutext/main.ansi"
  20. ;;   CliDoor  "doors:FX/scroller ~50 main.scrl"
  21. ;   CliDoor  "doors:FX/blink    ~50 main.blnk"
  22. ;EndCmd
  23.  
  24.  
  25.  
  26. Cmd "G"
  27.    GotoMenu "Logout.Menu"
  28. EndCmd
  29.  
  30. Cmd "Q" , 0 - 255
  31.    GotoMenu "Main.Menu"
  32. EndCmd
  33.  
  34. Cmd "L"
  35.    GotoMenu "List.Menu"
  36. EndCmd
  37.  
  38. Cmd "B"
  39.    GotoMenu "Browse.Menu"
  40. EndCmd
  41.  
  42. Cmd "P"
  43.    GotoMenu "Protocol.Menu"
  44. EndCmd
  45.  
  46.  
  47. Cmd "1"
  48.    ChangeFileArea "1"
  49.    LogMessage "Changed to file area: ~301."
  50. EndCmd
  51.  
  52. Cmd "2"
  53.    ChangeFileArea "2"
  54.    LogMessage "Changed to file area: ~301."
  55. EndCmd
  56.  
  57. Cmd "3"
  58.    ChangeFileArea "3"
  59.    LogMessage "Changed to file area: ~301."
  60. EndCmd
  61.  
  62. Cmd "A"
  63.    ClrScr
  64.    ListFileAreas
  65.    ;  PrintFile "trion:text/FileAreas.ansi"
  66.    OtherFileArea
  67.    LogMessage "Changed to file area: ~301."
  68. EndCmd
  69.  
  70. Cmd "O"
  71.    ClrScr
  72. ;   ListFileAreas
  73.    PrintFile "trion:text/FileAreas.ansi"
  74.    OtherFileArea
  75.    LogMessage "Changed to file area: ~301."
  76. EndCmd
  77.  
  78.  
  79. Cmd "R"
  80.    PrintFile "trion:text/ratio.ansi"
  81.    More
  82. EndCmd
  83.  
  84. Cmd "+"
  85.    AddFile
  86. EndCmd
  87.  
  88. Cmd "F"
  89.    ClrScr
  90.    CatalogFindGlobal
  91. EndCmd
  92.  
  93. Cmd "N"
  94.    ClrScr
  95.    CatalogChronoGlobalNew
  96. EndCmd
  97.  
  98. Cmd "S"
  99.    SetScanDate
  100. ;   CatalogChronoGlobalNew
  101. EndCmd
  102.  
  103. Cmd "C"
  104.    ClrScr
  105.    CatalogChrono
  106. EndCmd
  107.  
  108. Cmd "M"
  109.    MarkFile
  110.    More
  111. EndCmd
  112.  
  113. Cmd "I"
  114.    MarkName "ALLFILES.LHA"
  115.    More
  116. EndCmd
  117.  
  118. Cmd "J"
  119.    ListMarkedFiles
  120.    More
  121. EndCmd
  122.  
  123. Cmd "V"
  124.    ListMarkedFiles
  125.    KillMarkedFile
  126. EndCmd
  127.  
  128. Cmd "*"
  129.    UnmarkFiles
  130.    Print "|Unmarked all marked files.|"
  131.    More
  132. EndCmd
  133.  
  134. Cmd "U"
  135.    CliDoor  "doors:FreeSpace/FreeSpace DH1:"
  136.    More
  137.    Print "||Start Uploading now..||"
  138.    Upload
  139. EndCmd
  140.  
  141. Cmd "-"
  142.    UploadToArea "~300 "
  143. EndCmd
  144.  
  145. Cmd "T"
  146.    ViewArchive
  147. EndCmd
  148.  
  149.  
  150. ;Cmd "D"
  151. ;   MarkFile
  152. ;   Download
  153. ;   More
  154. ;EndCmd
  155.  
  156. Cmd "D"
  157.    ListMarkedFiles
  158.    GotoMenu "Download.menu"
  159. EndCmd
  160.  
  161. Cmd "K" , 240 - 255
  162.    DeleteFile
  163. EndCmd
  164.  
  165. Cmd "E" , 240 - 255
  166.    EditFile
  167. EndCmd
  168.  
  169. Cmd "H" , 240 - 255
  170.    MakeFreeDownload
  171. EndCmd
  172.  
  173. Cmd "#" , 0 - 255
  174.    PassWord  "test"
  175.    DownloadFromDos
  176. EndCmd
  177.  
  178.  
  179. END
  180.  
  181.